unit Unitcopy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxStyles, dxSkinsCore, dxSkinscxPCPainter,
  cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxGridCustomView, cxGrid, cxCheckBox, dxSkinsDefaultPainters, MemDS, DBAccess, Uni,baseunit,
  dxSkinOffice2010Blue;

type
  TFcopy = class(TbaseForm)
    cxGrid1: TcxGrid;
    cxviewcopy: TcxGridDBTableView;
    cxviewcopyid: TcxGridDBColumn;
    cxviewcopyDBColumn: TcxGridDBColumn;
    cxviewcopyDBColumn1: TcxGridDBColumn;
    cxviewcopyDBColumn2: TcxGridDBColumn;
    cxviewcopyDBColumn5: TcxGridDBColumn;
    cxviewcopyDBColumn13: TcxGridDBColumn;
    cxviewcopyDBColumn6: TcxGridDBColumn;
    cxviewcopyDBColumn8: TcxGridDBColumn;
    cxviewcopyDBColumn9: TcxGridDBColumn;
    cxviewcopyDBColumn10: TcxGridDBColumn;
    cxviewcopyDBColumn16: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    dsfp: TUniDataSource;
    UniQcopyfp: TUniQuery;
    procedure cxviewcopyCellDblClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fcopy: TFcopy;

implementation

uses datamUnit;

{$R *.dfm}

procedure TFcopy.cxviewcopyCellDblClick(Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult:=mrOk;
end;

procedure TFcopy.FormCreate(Sender: TObject);
begin
UniQcopyfp.open;
end;

procedure TFcopy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  inherited;

end;

end.
